home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Q-R / Recognize.94.cpt / Recognize .94 / background_2792.txt < prev    next >
Text File  |  1988-11-13  |  2KB  |  99 lines
  1. -- background: 2792 from stack: in.94
  2. -- bmap block id: 3105
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on idle
  8.   global toreceive
  9.   if toreceive is true then
  10.     put empty into thestring
  11.     if charsavailable() <> 0 then put empty into bkgnd field infield
  12.     repeat while charsavailable() <> 0
  13.       set cursor to busy
  14.       put "Receiving Data"
  15.       put recvupto(return,"","") into newIn
  16.       put newIn after theString
  17.     end repeat
  18.     if thestring <> empty then
  19.       put empty into bkgnd field infield
  20.       put theString after bkgnd field "inField"
  21.       put empty into thestring
  22.       if bkgnd field Infield contains "Message from" then ohbulletin
  23.       if bkgnd field infield contains "sent you mail" then justsent
  24.       send docardsearch to card
  25.       hide msg
  26.     end if
  27.   end if
  28. end idle
  29.  
  30. on ohbulletin
  31.   hide msg
  32.   find string "Message from" in bkgnd field "Infield"
  33.   put the foundline into theline
  34.   put word 2 of theline into startline
  35.   put line startline of bkgnd field infield into thebulletin
  36.   put word 2 of theline into linenumber
  37.   add 1 to linenumber
  38.   if line linenumber of bkgnd field infield is not empty then
  39.     put return after thebulletin
  40.     put line linenumber of bkgnd field infield after thebulletin
  41.     put return after thebulletin
  42.   end if
  43.   endbulletin thebulletin
  44. end ohbulletin
  45.  
  46. on endbulletin bulletin
  47.   put return before bulletin
  48.   put return after bulletin
  49.   put bulletin into card field "Bulletins"
  50.   put return&"Click mouse to continue" after card field bulletins
  51.   show card field "Bulletins"
  52.   wait until the mouse is down
  53.   sendsport 1,false, return
  54.   hide card field "Bulletins"
  55. end endbulletin
  56.  
  57. on test
  58.   if bkgnd field infield contains whole "Message From" then
  59.     put yes into msg
  60.   end if
  61. end test
  62.  
  63. on thebuttons
  64.   repeat with i = 2 to 14
  65.     set the autohilite of bkgnd button i to false
  66.   end repeat
  67. end thebuttons
  68.  
  69.  
  70.  
  71.  
  72.  
  73. -- part 1 (field)
  74. -- low flags: 01
  75. -- high flags: 2004
  76. -- rect: left=21 top=15 right=52 bottom=490
  77. -- title width / last selected line: 0
  78. -- icon id / first selected line: 0 / 0
  79. -- text alignment: 1
  80. -- font id: 2
  81. -- text size: 20
  82. -- style flags: 0
  83. -- line height: 26
  84. -- part name: Menu
  85.  
  86.  
  87. -- part 3 (field)
  88. -- low flags: 80
  89. -- high flags: 0000
  90. -- rect: left=0 top=41 right=334 bottom=512
  91. -- title width / last selected line: 0
  92. -- icon id / first selected line: 0 / 0
  93. -- text alignment: 0
  94. -- font id: 4
  95. -- text size: 9
  96. -- style flags: 0
  97. -- line height: 12
  98. -- part name: infield
  99.